home *** CD-ROM | disk | FTP | other *** search
/ APDL Other Worlds / APDL Other Worlds Collection.iso / SF3000 / !Star3000 / Resources / ResFind (.txt)
Encoding:
RISC OS BBC BASIC V Source  |  2005-05-08  |  2.1 KB  |  81 lines
  1.  ************************************************************************
  2.  *                                                                      *
  3.  *              ResFind: Look for resources                             *
  4.  *                                                                      *
  5.  *   Copyright (C) 1992-2005 Olaf Krumnow and Herbert zur Nedden        *
  6.  *                 German Archimedes Group (GAG)                        *
  7.  *                                                                      *
  8.  * Version 2.12            FREEWARE - may be used in any application    *
  9.  *                                                                      *
  10.  ************************************************************************
  11.  Squashed by StrongBS 2.10 on 08 May 2005
  12.  B%256:
  13. !B%=255:$(B%+4)=
  14. $+" at "+
  15. 262367,B%,3,"ResFind":
  16. 3:I$=
  17. 0("Obey$Dir"):
  18.  B$=""B$=
  19. 5(I$):
  20. B$,1)="!"B$=
  21. B$,2)
  22. 0(B$+"$Dir",I$):J$=I$+".":F$="<"+B$+"$Dir>":D$=
  23. 0(B$+"$Language")+","+
  24. 0("ResFind$LanguagesPref")+","+
  25. 4+","+
  26. 0("ResFind$LanguagesSuff")+",UK":
  27. 1(J$+"Resources")H$=J$+"Resources.":E$=F$+".Resources"
  28.  H$=J$:E$=F$
  29. D$,","):
  30.  C$=D$:D$=""
  31. D$,D%-1):D$=
  32. D$,D%+1)
  33.  C$<>""F%=
  34. 1(H$+C$):
  35.  C$>10C$=
  36. C$,10):F%=
  37. 1(H$+C$)
  38. D$="":
  39. 0(B$+"Res$Path",E$+"."+C$+".,"+E$+".,"+F$+"."):
  40. 0(B$+"Res$Dir",E$+"."+C$)
  41. 0(B$+"Res$Path",E$+".,"+F$+"."):
  42. 0(B$+"Res$Dir",E$)
  43. 131088
  44. K%;E%:
  45.     A$=""
  46. 2(K%,255):A%=
  47. A$,""""):
  48. A$,"""",A%+1)
  49.     A$=""
  50. A$,A%+1):
  51. A$,1)=" ":A$=
  52. A$,2):
  53. A$," "):
  54.  A%>1A$=
  55. A$,A%-1)
  56. 0(G$)
  57. 131107,G$,B%,256,,3
  58. ,,C%;E%:
  59. 2(B%,C%)
  60. 0(G$,M$)C%=
  61.  M$+1:$B%=M$:
  62. 131108,G$,B%,C%
  63. 3,"Can't set variable "+G$
  64. 6,70,127
  65. 48,,67,2,J%,B%,256
  66. ,,,,,C%:=
  67. 2(B%,C%)
  68. 1(N$)
  69. 131080,17,N$
  70. H%;E%:
  71.      =H%=2
  72. 2(I%,C%)L$="":A%=
  73. (A%<C%)
  74. (I%?A%>31):L$+=
  75. (I%?A%):A%+=1:
  76. 5(K$)G%=
  77. K$,".",G%):
  78.  G%=D%:D%=
  79. K$,".",G%+1):
  80. K$,G%+1)
  81.